home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / setmail < prev    next >
Encoding:
Text File  |  2002-10-28  |  712 b   |  33 lines
  1. # SetMail -- Here's the plan.
  2. #
  3. # When you have /set mail 1, you want to see (Mail).
  4. # When you have /set mail 2, you want to see (Mail :%d).
  5. # Where (Mail) is controlled by /set mail_format1
  6. # And (Mail :%d) is controlled by /set mail_format2.
  7. #
  8. # This script is a good example of how to use /on set to add a new /set
  9. # and change the default behavior of an existing /set to do something that
  10. # you otherwise couldn't do! =)
  11. #
  12.  
  13. @ mail.format1 = [ (Mail)]
  14. @ mail.format2 = [ (Mail: %M)]
  15.  
  16. on -set "mail 1" {
  17.     ^set status_mail $mail.format1
  18. }
  19.  
  20. on -set "mail 2" {
  21.     ^set status_mail $mail.format2
  22. }
  23.  
  24. on -set "mail_format1 *" {
  25.     @ mail.format1 = [$1-]
  26. }
  27.  
  28. on -set "mail_format2 *" {
  29.     @ mail.format2 = [$1-]
  30. }
  31.  
  32. #hop'97
  33.